home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / clzetst.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  20KB  |  862 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFPB<>1ANDP2<>1THENIFUW=0THENSYSUU,15:PRINT"[155]";
  9. 36 IFPB=1ANDUZ<>1THENIFUW=0THENSYSUU,14
  10. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  11. 45 GETUI$:IFUI$=""THEN45
  12. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  13. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  14. 60 IFUR=ULTHEN45
  15. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  16. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  17. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  18. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  19. 95 IFLEN(US$)=0THEN110
  20. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  21. 105 RETURN
  22. 110 IFUA=46THENRETURN
  23. 115 IFUA=32ANDUR<>0THENRETURN
  24. 120 IFUA>47ANDUA<58THENRETURN
  25. 125 IFUA>64ANDUA<91THENRETURN
  26. 130 IFUA<193ORUA>218THENUI$="":RETURN
  27. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  28. 140 RETURN
  29. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  30. 150 UZ=1:UV%=PEEK(UT):GOTO300
  31. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,11:POKEUX,11:PRINT"[154]";
  32. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  33. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  34. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  35. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  36. 300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,12:POKEUX,6:PRINT"[155]"
  37. 305 PRINT"                M E N U"
  38. 310 PRINT"    --------------------------------"
  39. 315 PRINT"       1.   BEGIN CLOZE TEST"
  40. 325 PRINT"       2.   INSTRUCTIONS"
  41. 330 PRINT"       3.   QUIT"
  42. 335 PRINT"    --------------------------------"
  43. 340 PRINT"       PRESS A NUMBER KEY (1-3) ";
  44. 345 UL=1:US$="123"
  45. 347 GOSUB35:US$=""
  46. 350 ONVAL(UR$)GOSUB1000,500,390
  47. 355 GOTO300
  48. 370 IFUZ=1THENSYSUP%:GOTO155
  49. 375 RETURN
  50. 390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
  51. 395 CLR:END
  52. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,11:POKEUX,12
  53. 405 UT$=" [208]ROGRAM TITLE":UH=1:UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  54. 485 GOSUB835
  55. 490 IFUZ=1THENSYSUP%:GOTO155
  56. 495 RETURN
  57. 500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
  58. 501 UT$=" [195]LOZE [212]EST":UH=1:UP=0:UG$="[201]NSTRUCTIONS":GOSUB850
  59. 502 PRINT"     [212]O THE BEST OF OUR KNOWLEDGE,"
  60. 503 PRINT"     THIS PROGRAM IS IN THE PUBLIC"
  61. 504 PRINT"     DOMAIN.  [201]F THIS IS NOT TRUE,"
  62. 505 PRINT"     PLEASE CONTACT:"
  63. 506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
  64. 507 PRINT"          3370 [208]HARMACY [193]VE.
  65. 508 [153]"          ATNGINCOURT, (null)NTARIO"
  66. 509 [153]"          LENANADA, (null)1(null) 2(null)4"
  67. 510 [153]"          (416) 499-4292"
  68. 511 UH[178]1:[141]835:[141]850
  69. 512 [153]"      (null)ROGRAM (null)AME: LENLOZE (null)EST"
  70. 513 [153]"      (null)RITTEN BY  : MID$. CHR$ILCHRIST"
  71. 514 [153]"      (null)EVISED BY  : MID$AN (null)AWCZAK"
  72. 515 [153]"      (null)HIS PROGRAM WILL RUN ON ANY
  73. 516 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
  74. 517 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
  75. 518 PRINT"         8032 [195][194][205] [195]OMPUTER
  76. 519 [153]"         LENOMMODORE 64 LENOMPUTER
  77. 520 GOSUB835:GOSUB850
  78. 524 PRINT"  [204]EVEL: [212]EACHER [213]SE: GRADES 3-13":PRINT
  79. 526 PRINT"  [211]UBJECT [193]REA: ALL SUBJECTS":PRINT
  80. 528 PRINT"  [207]BJECTIVE: [212]O PRODUCE A CLOZE TEST":PRINT"  AND ANSWER SHEET FROM A PASSAGE
  81. 529 [153]"  TYPED INTO THE COMPUTER.":[153]:[141]835:[141]850
  82. 536 [153]"ATNLTHOUGH DESIGNED TO WORK WITH A":[153]
  83. 538 [153]" PRINTER, IT CAN BE USED WITHOUT ONE.":[141]835:[141]850:UP[178]0
  84. 540 [153]" (null)HE FOLLOWING THINGS MUST BE ENT":[153]
  85. 542 [153]" -ERED BEFORE RECEIVING THE FINAL TEXT,":[153]
  86. 544 [153]" STATISTICAL INFORMATION, ANSWERS, AND":[153]
  87. 546 [153]" THE TEXT:":[153]:[153]
  88. 548 [153]"       1. (null)EST (null)AME":[153]
  89. 550 [153]"       2. (null)RINTER (Y/N)":[153]
  90. 552 [153]"       3. (null)EXT":[153]
  91. 554 [153]"       4. (null)TH WORDS TO BE DELETED":[141]835:[141]850:UP[178]0
  92. 560 [153]" (null)HEN ENTERING THE TEXT, YOU MAY ENTER":[153]
  93. 562 [153]" EACH SENTENCE SEPARATELY, OR AS MANY":[153]
  94. 564 [153]" AS YOU CAN FIT INTO SIX SCREEN LINES.":[153]
  95. 566 [153]
  96. 568 [153]" ATNFTER YOU'VE ENTERED THE TEXT, A ":[153]
  97. 570 [153]" MENU WILL BE DISPLAYED.  LEFT$ERE, YOU":[153]
  98. 572 [153]" HAVE THE OPPORTUNITY TO MAKE ANY":[153]
  99. 574 [153]" CORRECTIONS. PEEKE SURE TO REVIEW THE TEXT"
  100. 576 [153]" FIRST, SO AS TO FIND OUT THE NUMBER OF":[153]
  101. 578 [153]" THE WORD YOU WISH TO CHANGE."
  102. 579 [141]835:[141]850:UP[178]0
  103. 580 [153]" (null)HEN THE MESSAGE COMES UP TELLING":[153]
  104. 582 [153]" YOU TO SET THE PRINTER, ADVANCE THE"
  105. 583 [153]" PAPER, SO THAT THE ANSWER DOES NOT":[153]
  106. 584 [153]" GET PRINTED RIGHT BELOW THE TEST.":[153]
  107. 586 [153]" (null)OU MUST ENTER AT LEAST THREE SENTENCES"
  108. 588 [153]" TO CAUSE THE COMPUTER TO DELETE SOME ":[153]
  109. 590 [153]" WORDS FOR THE TEST.":[153]:[141]835:[141]15835:[141]850
  110. 622 [153]" RIGHT$F AT THE END OF THE PROGRAM YOU"
  111. 624 [153]" DECIDE TO GO BACK TO THE SAME TEXT,":[153]
  112. 626 [153]" YOU SHOULD REVIEW THE TEXT, SINCE IT":[153]
  113. 628 [153]" WILL BE SLIGHTLY ALTERED.":[153]:[153]
  114. 652 [153]" RIGHT$F AT ANY TIME IN THE PROGRAM YOU WANT"
  115. 654 [153]" TO SEE THE (null)ATNRIGHT$(null)CLOSE(null)VAL(null)(null), PRESS LEFT$":[153]
  116. 656 [153]" AND <(null)VAL(null)(null)(null)(null)>.
  117. 695 GOSUB3810
  118. 696 POKEUT,UL%
  119. 697 UG$="":UP=0
  120. 698 IFUZ=1THENSYSUP%:GOTO155
  121. 699 RETURN
  122. 700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
  123. 705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
  124. 800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,6
  125. 801 [129]I[178]1[164]38:[153]" WAIT";:[130]
  126. 802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
  127. 803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
  128. 804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
  129. 805 [153]""[163]11)"STEP   (null)    (null)   (null)    (null)"
  130. 806 [153][163]11)" WAITSGN + SGNWAITGET   WAITSGN      + "
  131. 807 [153][163]11)" WAITSGN + SGN  WAIT (null)   (null)SGN   WAITSTEP
  132. 808 PRINTTAB(11)" [146][180] [170] [180][146][161]     [170] [180][146][161]
  133. 809 [153][163]11)"(null)   WAITSTEPSGN   (null)   WAITSTEPSGNWAITGET
  134. 810 PRINT""TAB(11)"ONTARIO":PRINTTAB(11)"EDUCATIONAL
  135. 811 [153][163]11)"SOFTWARE": [153][163]11)"PROJECT":[153][163]11)"1983
  136. 812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
  137. 813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
  138. 814 GOTO300
  139. 835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  140. 840 GETUI$:IFUI$<>" "THEN840
  141. 845 RETURN
  142. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$,18)
  143. 855 PRINT" --------------------------------------"
  144. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[200]ELP - [208]RESS   H <[210][197][212][213][210][206]>"
  145. 865 UH=0:PRINT"":RETURN
  146. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  147. 900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
  148. 901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
  149. 902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  150. 903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  151. 904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
  152. 905 UD$="":UP$="                                      "
  153. 906 IFFL=0THENDIM V$(6),P$(5),A$(50),WA$(254),ZA$(254)
  154. 907 IFFL=0THENDIM S3$(11),S4$(10),SS$(4)
  155. 908 IFFL=0THENDIM R1$(128),R2(128),DW$(100),CR$(30):FL=1
  156. 909 RETURN
  157. 910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  158. 915 IFPEEK(US+40)<>96THEN700
  159. 920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
  160. 925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  161. 930 PRINT"MEMORY TO RUN THIS PROGRAM !":SYSUE:END
  162. 935 PRINT"[147]"UC$:IFUW=0THEN965
  163. 940 IFUF=60ORUF=108ORUF=124THEN950
  164. 945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
  165. 950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
  166. 955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":SYSUE:END
  167. 960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
  168. 965 SYSUD
  169. 970 GOSUB800:GOTO300
  170. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
  171. 1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,11:POKEUX,11:PRINT"[154]":SYSUU,14
  172. 1003 POKEUT,UL%
  173. 1005 QQ=RND(-TI)
  174. 1007 FX$="ABCDEFGHIJKLMNOPQRSTUVWXYZ .,:;!'\$/*?)(&%#-0123456789
  175. 1008 FX$[178]FX$[170]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  176. 1010 QQ[178]0:[140]
  177. 1020 [143] CLOZE TEST
  178. 1030 [143]
  179. 1040 [143] ENHANCEMENT OF
  180. 1050 [143] STAR READABILITY PROGRAM
  181. 1060 [143]
  182. 1070 [143] BY J. GILCHRIST
  183. 1080 [143] TORONTO BOARD OF EDUCATION
  184. 1090 [143] COMPUTER SERVICES DEPT.
  185. 1100 [143] JULY 1980
  186. 1110 [143]
  187. 1112 [143] SENTENCE INPUT, UPPER & LOWER
  188. 1115 [143] CASE, BY JAN SAWCZAK
  189. 1117 [143]
  190. 1120 [143] *****INITIALIZATION SECTION*****
  191. 1130 [143]
  192. 1140 [153] "             LENLOZE (null)EST"
  193. 1160 [153] "(null)HAT IS THE NAME OF THE TEST? ":[153]":";
  194. 1170 UL[178]15:US$[178]"":PB[178]1:[141]35:T$[178]UR$:UR$[178]""
  195. 1175 [153]:[153]"STR$O YOU HAVE A PRINTER? ";:UL[178]1:US$[178]"YN"
  196. 1180 [141]35:[139] UR$[178]"Y" [167] PR[178]1
  197. 1185 [139] UR$[178]"N" [167] PR[178]0
  198. 1290 [153] "LOAD      RIGHT$NITIALIZATION IN PROGRESS."
  199. 1300 V$(1)[178]"A": [143] VOWEL LIST
  200. 1310 V$(2)[178]"E"
  201. 1320 V$(3)[178]"I"
  202. 1330 V$(4)[178]"O"
  203. 1340 V$(5)[178]"U"
  204. 1350 V$(6)[178]"Y"
  205. 1360 P$(1)[178]".": [143] END OF SENTENCE PUNCTUATION
  206. 1370 P$(2)[178]"?"
  207. 1380 P$(3)[178]"!"
  208. 1390 P$(4)[178]":"
  209. 1400 P$(5)[178]";"
  210. 1410 W1[178]0: [143] COUNT OF WORDS
  211. 1420 S1[178]0: [143] COUNT OF SENTENCES
  212. 1430 S2[178]0: [143] COUNT OF SYLLABLES
  213. 1450 SS$(1)[178]"CREOLE": [143] SPECIAL WORDS ADJACENT VOWELS
  214. 1460 SS$(2)[178]"ZZZZ"
  215. 1470 SS$(3)[178]"ZZZZ"
  216. 1480 SS$(4)[178]"ZZZZ"
  217. 1490 S3$(1)[178]"AIC": [143] SUFFIXES 3 CHARACTER ADJACENT VOWELS
  218. 1500 S3$(2)[178]"EUM"
  219. 1510 S3$(3)[178]"IAC"
  220. 1520 S3$(4)[178]"IAL"
  221. 1530 S3$(5)[178]"IAN"
  222. 1540 S3$(6)[178]"IER"
  223. 1550 S3$(7)[178]"OIC"
  224. 1560 S3$(8)[178]"UAL"
  225. 1570 S3$(9)[178]"UEL"
  226. 1580 S3$(10)[178]"UET"
  227. 1590 S3$(11)[178]"ZZZ"
  228. 1600 S4$(1)[178]"EOUS": [143] SUFFIXES 4 CHARACTER ADJACENT VOWELS
  229. 1610 S4$(2)[178]"IARY"
  230. 1620 S4$(3)[178]"IENT"
  231. 1630 S4$(4)[178]"IEST"
  232. 1640 S4$(5)[178]"IETY"
  233. 1650 S4$(6)[178]"IOUS"
  234. 1660 S4$(7)[178]"OATE"
  235. 1670 S4$(8)[178]"UEND"
  236. 1680 S4$(9)[178]"UOUS"
  237. 1690 S4$(10)[178]"ZZZZ"
  238. 1700 [141] 5170
  239. 1710 [143] *****INPUT SECTION*****
  240. 1720 [143]
  241. 1730 N[178]0
  242. 1740 [153]"LOAD"
  243. 1745 [151]UT,UL%
  244. 1750 [153] [166](24[171][195](T$))[173]2);"(null)ITLE: ";T$
  245. 1760 [153]UD$" (null)AX (null)ORDS:250 ";
  246. 1770 [153]" (null)AST WORD OF (null)EXT: /*";
  247. 1780 :
  248. 1790 [153]" VALNTER SENTENCE; (null)O. OF WORDS IS":[141]10000:[153]:[153]" :";
  249. 1800 [151]UN,0:UL[178]254:US$[178]FX$
  250. 1805 QQ[178]45:[141]35:QQ[178]0:W$[178]UR$:UR$[178]""
  251. 1807 [139]N[178]0[167]N[178]1
  252. 1810 [141]9000
  253. 1860 [137] 1740
  254. 1870 [153] "   (null)AXIMUM NUMBER OF WORDS ALLOWED;"
  255. 1880 [153] "         VALND OF TEXT ASSUMED.
  256. 1890 GOSUB 3810
  257. 1900 REM *****REVIEW AND UPDATE SECTION*****
  258. 1910 REM
  259. 1920 N=N-1:WA$(N)="/*"
  260. 1930 M=N:IFUW=0THENPOKEUX,11:POKEUY,11
  261. 1940 PRINT "[147]                [205]ENU"
  262. 1945 PRINT"               [163][163][163][163][163][163]"
  263. 1950 PRINT "         1[146] [212]O REVIEW TEXT"
  264. 1960 PRINT "         2[146] [212]O CHANGE WORD"
  265. 1970 PRINT "         3[146] [212]O DELETE WORD"
  266. 1980 PRINT "         4[146] [212]O ADD WORD AT END"
  267. 1990 PRINT "         5[146] [212]O PROCESS TEXT"
  268. 2000 PRINT" [197]NTER THE NUMBER OF YOUR CHOICE: ";:UL=1:US$="1H2345":P2=1:GOSUB35
  269. 2005 R=VAL(UR$):UR$=""
  270. 2010 ONRGOTO2070,2320,2390,2450,2500
  271. 2060 GOTO 1940
  272. 2070 N=1
  273. 2075 I=0
  274. 2080 LN=0
  275. 2090 PRINT"[147]"
  276. 2100 LN$=""
  277. 2110 PRINT SPC((40-LEN(T$))/2);"";T$;"[146]"
  278. 2120 PRINT
  279. 2130 W$=WA$(N)
  280. 2140 IF W$="/*" THEN 2260
  281. 2150 LN=LN+5+LEN(W$)
  282. 2160 IF LN>40 THEN 2200
  283. 2170 N$=STR$(N)
  284. 2180 LN$=LN$+N$+" "+W$+" "
  285. 2190 GOTO 2240
  286. 2200 PRINT LN$:PRINT
  287. 2202 I=I+1
  288. 2204 IF I=>8 THEN 2270
  289. 2210 N$=STR$(N)
  290. 2220 LN$=N$+" "+W$+" "
  291. 2230 LN=LEN(W$)+5
  292. 2240 N=N+1
  293. 2250 GOTO 2130
  294. 2260 PRINT LN$:PRINT
  295. 2270 :
  296. 2290 PRINT "    ******** REVIEW TEXT ********"
  297. 2300 GOSUB 3810
  298. 2302 IF W$="/*" THEN 1940
  299. 2310 GOTO 2075
  300. 2320 PRINT"[147] [197]NTER THE NUMBER OF THE WORD? ";
  301. 2330 UG$="":UL=3:US$="0123456H789":GOSUB35:N=VAL(UR$):UR$=""
  302. 2332 IF N<1 THEN 2320
  303. 2334 IF N>M-1 THEN 2320
  304. 2335 PRINT:PRINT"[201]S ";WA$(N);"[146] TO BE CHANGED? ";:UL=1:US$="YHN":GOSUB35
  305. 2336 IF UR$="N" THEN 2320
  306. 2340 PRINT " [207]LD WORD: ";WA$(N)
  307. 2350 PRINT " [197]NTER THE NEW WORD: ";
  308. 2355 US$=FX$
  309. 2360 UL=25:QQ=22:GOSUB35:QQ=0:W$=UR$:UR$=""
  310. 2365 GOSUB9000
  311. 2380 GOTO 1940
  312. 2390 PRINT "[147] [197]NTER THE NUMBER OF THE WORD? ";
  313. 2400 UG$="":UL=3:US$="1234567890":GOSUB35:N=VAL(UR$):UR$=""
  314. 2402 IF N<1 THEN 2390
  315. 2404 IF N>M-1 THEN 2390
  316. 2405 PRINT:PRINT"[201]S ";WA$(N);"[146] THE WORD? ";:UL=1:US$="YN":GOSUB35
  317. 2406 IF UR$="N" THEN 2390
  318. 2410 PRINT " [196]ELETED:";WA$(N)
  319. 2420 WA$(N)="*DEL"
  320. 2430 GOSUB 3810
  321. 2440 GOTO 1940
  322. 2450 N=M
  323. 2460 PRINT"[147]"
  324. 2470 GOTO 1750
  325. 2480 REM *****SCORING SECTION*****
  326. 2490 REM
  327. 2500 N=0
  328. 2512 PRINT "[147]           [208]ROCESSING [212]EXT"
  329. 2515 PRINT
  330. 2520 N=N+1
  331. 2530 W$=WA$(N)
  332. 2540 PRINT N;SPC(4-LEN(STR$(N)));
  333. 2550 IFW$="/*"THENPRINT:PRINT"              [195]OMPLETED.":GOSUB3810:GOTO3140
  334. 2560 IFW$="*DEL"THEN2520
  335. 2570 W1=W1+1
  336. 2580 V=0
  337. 2590 ED=0
  338. 2600 B=LEN(W$): REM DETERMINE LENGTH OF WORD *
  339. 2610 FOR I=1 TO B: REM STORE WORD IN A$*
  340. 2620 C$=MID$(W$,I,1)
  341. 2630 A$(I)=C$
  342. 2640 NEXT I
  343. 2650 IF A$(B)<>"," THEN 2680: REM CHECK FOR COMMA
  344. 2660 B=B-1
  345. 2670 GOTO 2760
  346. 2680 FOR I=1 TO 5: REM CHECK FOR END SENTENCE *
  347. 2690 IF A$(B)<>P$(I) THEN 2750
  348. 2700 B=B-1
  349. 2710 S1=S1+1
  350. 2720 Z$=LEFT$(W$,B)
  351. 2730 W$=Z$
  352. 2740 GOTO 2760
  353. 2750 NEXT I
  354. 2760 IF B>3 THEN 2790: REM IF 3 LETTERS COUNT 1 SYLLABLE *
  355. 2770 V=1
  356. 2780 GOTO 3070
  357. 2790 Z$=RIGHT$(W$,2): REM CHECK FOR SUFFIXES *
  358. 2800 IF Z$<>"ED" THEN 2840
  359. 2810 B=B-2
  360. 2820 ED=1
  361. 2830 GOTO 2860
  362. 2840 IF Z$="ES" THEN 2810
  363. 2850 IF Z$="LE" THEN 2900
  364. 2860 IF B<3 THEN 2900
  365. 2870 Z$=RIGHT$(W$,1): REM TRAILING E *
  366. 2880 IF Z$<>"E" THEN 2900
  367. 2890 B=B-1
  368. 2900 L=0: REM COUNT VOWELS
  369. 2910 GOSUB3850
  370. 2920 GOSUB 4120
  371. 2930 GOSUB 5060
  372. 2940 FOR I=1 TO B
  373. 2950 FOR II=1 TO 6
  374. 2960 IF A$(I)<>V$(II) THEN 3030
  375. 2970 IF I=1 THEN 3000
  376. 2980 L1=I-L: REM ADJACENT VOWELS COUNT AS 1
  377. 2990 IF L1=1 THEN 3010
  378. 3000 V=V+1
  379. 3010 L=I
  380. 3020 GOTO 3040
  381. 3030 NEXT II
  382. 3040 NEXT I
  383. 3050 IF V>0 THEN 3070
  384. 3060 V=1
  385. 3070 S2=S2+V
  386. 3080 GOTO 2520
  387. 3090 REM *****OUTPUT SECTION*****
  388. 3100 REM
  389. 3140 IF S1>0 THEN 3190
  390. 3150 S1=1
  391. 3190 F3=W1/S1
  392. 3210 F4=S2/W1
  393. 3230 F1=206.835-(F3*1.015)-(F4*84.6)
  394. 3250 F2=11.534-(.053*F1)
  395. 3270 G1=-((F1-150)/10)
  396. 3280 G2=-((F1-110)/5)
  397. 3290 G3=-((F1-93)/3.33)
  398. 3300 G4=-((F1-140)/6.66)
  399. 3310 F3=.1*(INT((F3+.05)*10))
  400. 3320 F4=.1*(INT((F4+.05)*10))
  401. 3330 F1=.1*(INT((F1+.05)*10))
  402. 3340 F2=.1*(INT((F2+.05)*10))
  403. 3350 IF F1>= 70 THEN 3390
  404. 3360 IF F1>= 60 THEN 3410
  405. 3370 IF F1>= 50 THEN 3430
  406. 3380 IF F1>= -50 THEN 3450
  407. 3390 G=G1
  408. 3400 GOTO 3460
  409. 3410 G=G2
  410. 3420 GOTO 3460
  411. 3430 G=G3
  412. 3440 GOTO 3460
  413. 3450 G=G4
  414. 3460 G=.1*(INT((G+.05)*10))
  415. 3470 GL=G
  416. 3480 GL=G-.5
  417. 3490 GH=G
  418. 3500 GH=G+.5
  419. 3530 REM *****PRINT SECTION*****
  420. 3540 REM
  421. 3610 IFPR=1THENPRINT"[147] [211]ET THE PRINTER FOR A PRINT OUT"
  422. 3611 IF PR=1 THEN PRINT:PRINT" OF THE TEXT.
  423. 3612 [139]PR[178]1[167][141]3810:[153]"ONONONONONONONONONONONONONON (null)RINTINGWAIT  ":[159]4,4:[152]4
  424. 3613 [139]PR[178]0[167][153]"LOAD":[153]" ";T$;"WAIT":[153]
  425. 3614 [139] PR[178]1 [167] [152]4
  426. 3620 N[178]1
  427. 3630 LN[178]0
  428. 3640 LN$[178]""
  429. 3650 W$[178]WA$(N)
  430. 3660 [139] W$[178]"/*" [167] 3760
  431. 3670 LN[178]LN[170]1[170][195](W$)
  432. 3680 [139] LN[177]70 [167] 3710
  433. 3690 LN$[178]LN$[170]" "[170]W$
  434. 3700 [137] 3740
  435. 3710 [139] PR[178]1 [167] [152]4,"";LN$:[137]3720
  436. 3715 [153]LN$
  437. 3720 LN$[178]W$
  438. 3730 LN[178][195](W$)
  439. 3740 N[178]N[170]1
  440. 3750 [137] 3650
  441. 3760 [139]PR[178]0[167][153]LN$:[141]3810:[153]"LOADCONT";:[137]3773
  442. 3761 :
  443. 3762 :
  444. 3763 [152]4,"";LN$:[152]4:[152]4
  445. 3764 [152]4,"";" (null)UMBER OF SENTENCES=";S1
  446. 3765 [152]4,"";" (null)UMBER OF WORDS=";W1
  447. 3766 [152]4,"";" (null)UMBER OF SYLLABLES=";S2
  448. 3767 [152]4,"";" ATNVERAGE SENTENCE LENGTH  =";F3
  449. 3768 [152]4,"";" ATNVG. SYLLABLES PER WORD=";F4
  450. 3769 [152]4,"";" ASCLESCH INDEX=";F1
  451. 3770 [152]4,"";" STR$ALE INDEX=";F2
  452. 3771 [152]4,"";" CHR$RADE LEVEL EQUIVALENT=";G
  453. 3772 [152]4,"";" (null)EADING RANGE=";GL;"-";GH:[153]"LOAD"
  454. 3773 [153]" ";T$;"WAIT":[153]" (null)UMBER OF SENTENCES=";S1
  455. 3774 [153]" (null)UMBER OF WORDS=";W1:[153]" (null)UMBER OF SYLLABLES=";S2
  456. 3775 [153]" ATNVERAGE SENTENCE LENGTH =";F3:[153]" ATNVG. SYLLABLES PER WORD=";F4
  457. 3776 [153]" ASCLESCH INDEX=";F1:[153]" STR$ALE INDEX=";F2
  458. 3777 [153]" CHR$RADE LEVEL EQUIVALENT=";G:[153]" (null)EADING RANGE=";GL;"-";GH
  459. 3778 [141]3810
  460. 3780 [137] 6000
  461. 3790 [143] *****CONTINUE SUBROUTINE*****
  462. 3800 [143]
  463. 3810 [141]835:[141]15835:[142]
  464. 3850 [143] *****SUFFIXES ADJACENT VOWEL SUBROUTINE*****
  465. 3860 [143]
  466. 3865 S$[178]""
  467. 3870 [139] [201](W$,2)[178]"IA" [167] 4100
  468. 3880 [139] [201](W$,6)[178]"OATIVE" [167] 4100
  469. 3890 LN[178][195](W$)
  470. 3900 [139] LN[179]3 [167] [142]
  471. 3910 [139] [201](W$,2)[179][177]"LY" [167] 3940
  472. 3915 [139] LN[179]5 [167] [142]
  473. 3920 Z$[178][202](W$,LN[171]4,3)
  474. 3930 [137] 3950
  475. 3940 Z$[178][201](W$,3): [143] 3 CHAR.
  476. 3950 I[178]1
  477. 3960 [139] S3$(I)[178]"ZZZ" [167] 4000
  478. 3970 [139] S3$(I)[178]Z$ [167] 4095
  479. 3980 I[178]I[170]1
  480. 3990 [137] 3960
  481. 4000 [139] LN[179]4 [167] [142]
  482. 4010 [139] [201](W$,2)[179][177]"LY" [167] 4040
  483. 4015 [139] LN[179]6 [167] [142]
  484. 4020 Z$[178][202](W$,LN[171]5,4)
  485. 4030 [137] 4050
  486. 4040 Z$[178][201](W$,4): [143] 4 CHAR.
  487. 4050 I[178]1
  488. 4060 [139] S4$(I)[178]"ZZZZ" [167] [142]
  489. 4070 [139] S4$(I)[178]Z$ [167] 4095
  490. 4080 I[178]I[170]1
  491. 4090 [137] 4060
  492. 4095 S$[178]Z$
  493. 4100 V[178]V[170]1
  494. 4110 [142]
  495. 4120 [143] *****ROOTS OF WORDS ADJACENT VOWEL SUBROUTINE*****
  496. 4130 [143]
  497. 4140 [143]     BUT DROP PREFIXES FIRST
  498. 4150 P[178]0
  499. 4160 LN[178][195](W$)
  500. 4170 Z$[178]W$
  501. 4180 [139] [200](Z$,3)[178]"REI" [167] 4242
  502. 4185 [139] [200](Z$,3)[178]"REA" [167] 4242
  503. 4190 [139] [200](Z$,2)[178]"RE" [167] P[178]2
  504. 4200 [139] [200](Z$,2)[178]"UN" [167] P[178]2
  505. 4210 [139] [200](Z$,3)[178]"PRO" [167] P[178]3
  506. 4220 [139] [200](Z$,4)[178]"AUTO" [167] P[178]4
  507. 4230 [139] P[178]0 [167] 4242
  508. 4240 Z$[178][201](Z$,LN[171]P)
  509. 4242 [139] S$[178]"" [167] 4250
  510. 4244 LN[178][195](Z$)[171][195](S$)
  511. 4246 Z$[178][200](Z$,LN)
  512. 4250 [141] 5400
  513. 4260 [142]
  514. 4270 [131] ALTR,4
  515. 4290 [131] AMBIGUI,7
  516. 4295 [131] ANNUA,5
  517. 4300 [131] ANNUI,5
  518. 4310 [131] ARCHAE,6
  519. 4320 [131] AREA,4
  520. 4330 [131] BEING,5
  521. 4340 [131] BIA,3
  522. 4350 [131] BIBLIO,6
  523. 4360 [131] BIEN,4
  524. 4370 [131] BIO,3
  525. 4380 [131] CEREA,5
  526. 4390 [131] CLIE,4
  527. 4400 [131] COAD,4
  528. 4410 [131] COAG,4
  529. 4420 [131] COALE,5
  530. 4430 [131] COED,4
  531. 4440 [131] COEF,4
  532. 4450 [131] COEQU,5
  533. 4460 [131] COER,4
  534. 4470 [131] COEX,4
  535. 4480 [131] COINC,5
  536. 4490 [131] COOPE,5
  537. 4500 [131] CREATE,6
  538. 4510 [131] CREATI,6
  539. 4520 [131] CREATO,6
  540. 4530 [131] CREOL,5
  541. 4540 [131] CREOS,5
  542. 4550 [131] CRIER,5
  543. 4560 [131] CRITE,5
  544. 4565 [131] CRUE,4
  545. 4570 [131] CRYING,6
  546. 4580 [131] CRYO,4
  547. 4590 [131] CYA,3
  548. 4600 [131] DEICE,5
  549. 4610 [131] DEIF,4
  550. 4620 [131] DEIS,4
  551. 4630 [131] DEIT,4
  552. 4640 [131] DEO,3
  553. 4650 [131] DIA,3
  554. 4660 [131] DIO,3
  555. 4670 [131] DRUI,4
  556. 4680 [131] DUEN,4
  557. 4690 [131] DUET,4
  558. 4700 [131] EGOI,4
  559. 4710 [131] EXPEDIE,7
  560. 4720 [131] FLUEN,5
  561. 4730 [131] FLUI,4
  562. 4740 [131] FRUITION,8
  563. 4750 [131] GEO,3
  564. 4760 [131] GOING,5
  565. 4765 [131] GRUEL,5
  566. 4770 [131] IDEA,4
  567. 4780 [131] IDEO,4
  568. 4790 [131] IDIO,4
  569. 4800 [131] INFLUEN,7
  570. 4810 [131] LAIC,4
  571. 4820 [131] LAITY,5
  572. 4830 [131] LAUREA,6
  573. 4840 [131] LINEA,5
  574. 4850 [131] NUCLE,5
  575. 4860 [131] PERIOD,6
  576. 4870 [131] PERIOS,6
  577. 4880 [131] PERMEA,6
  578. 4890 [131] PIET,4
  579. 4900 [131] POE,3
  580. 4910 [131] PRIET,5
  581. 4920 [131] QUIE,4
  582. 4930 [131] REAC,4
  583. 4940 [131] REALI,5
  584. 4950 [131] REIM,4
  585. 4960 [131] REIN,4
  586. 4970 [131] SCIEN,5
  587. 4980 [131] SKIING,6
  588. 4990 [131] SPONTANE,8
  589. 5000 [131] TRIA,4
  590. 5005 [131] TRIU,4
  591. 5010 [131] ZOOG,4
  592. 5020 [131] ZOOL,4
  593. 5030 [131] ZZZZZ,5
  594. 5060 [143] *****SPECIAL WORD ADJACENT VOWEL SUBROUTINE*****
  595. 5070 [143]
  596. 5080 I[178]1
  597. 5090 [139] SS$(I)[178]"ZZZZ" [167] [142]
  598. 5100 [139] SS$(I)[178]W$ [167] 5130
  599. 5110 I[178]I[170]1
  600. 5120 [137] 5090
  601. 5130 V[178]V[171]1
  602. 5140 [142]
  603. 5150 [143] *****READ ROOTS OF WORDS FOR ADJACENT VOWEL CHECK SUBROUTINE*****
  604. 5160 [143]
  605. 5170 LC[178]128
  606. 5180 [129] I[178]1 [164] LC
  607. 5190 R1$(I)[178]"ZZZZZ"
  608. 5200 R2(I)[178]5
  609. 5210 [130] I
  610. 5220 I[178]1
  611. 5230 PR$[178]" "
  612. 5240 [135] R$,RL
  613. 5250 [139] R$[178]"ZZZZZ" [167] [142]
  614. 5260 [139] R$[179][178]PR$ [167] 5330
  615. 5270 R1$(I)[178]R$
  616. 5280 R2(I)[178]RL
  617. 5290 PR$[178]R$
  618. 5300 I[178]I[170]1
  619. 5310 [139] I[177][178]LC [167] 5330
  620. 5320 [137] 5240
  621. 5330 [153] "LOAD  VALRROR IN INITIALIZATION."
  622. 5340 [153] "  OF TABLE OF ROOTS OF WORDS"
  623. 5350 [153] "   ***PROGRAM ABORTED***"
  624. 5360 [153] R$
  625. 5371 [142]
  626. 5380 [143] *****BINARY SEARCH FOR ADJACENT VOWELS IN ROOTS OF WORDS SUBR.*****
  627. 5390 [143]
  628. 5400 FC[178]LC
  629. 5410 I[178]LC
  630. 5420 [139] FC[179]1 [167] [142]
  631. 5430 FC[178]FC[172].5
  632. 5440 [139] I[177]LC [167] 5510
  633. 5450 RL[178]R2(I)
  634. 5460 ZZ$[178][200](Z$,RL)
  635. 5470 [139] ZZ$[178]R1$(I) [167] 5530
  636. 5480 [139] ZZ$[179]R1$(I) [167] 5510
  637. 5490 I[178]I[170]FC
  638. 5500 [137] 5420
  639. 5510 I[178]I[171]FC
  640. 5520 [137] 5420
  641. 5530 V[178]V[170]1[170]ED
  642. 5540 [142]
  643. 6000 [143] *****CLOZE TEST*****
  644. 6005 [143] ********************
  645. 6010 [153] "LOAD LENLOZE TEST"
  646. 6020 [153] " (null)HE FIRST AND LAST SENTENCES"
  647. 6030 [153] " REMAIN THE SAME. VALVERY NCMDTAB(ONTH WORD"
  648. 6040 [153] " WILL BE DELETED."
  649. 6050 [153] " VALNTER YOUR NUMBER FOR N: ";:UL[178]2:US$[178]"0123456789":[141]35
  650. 6055 NN[178][197](UR$):UR$[178]""
  651. 6060 [139] NN[179]2 [167] 6090
  652. 6070 [139] NN[177]N [167] 6090
  653. 6072 N$[178][196](NN)
  654. 6074 [139] NN[178]2 [167] N$[178]N$[170]"ND"
  655. 6076 [139] NN[178]3 [167] N$[178]N$[170]"RD"
  656. 6078 [139] NN[177]3 [167] N$[178]N$[170]"TH"
  657. 6080 [137] 6120
  658. 6090 [153] " (null)HAT NUMBER IS NOT REASONABLE."
  659. 6100 [141] 3810
  660. 6110 [137] 6010
  661. 6120 [153] " VALVERY";N$;" WORD WILL BE DELETED.
  662. 6130 GOSUB 3810
  663. 6140 REM *****REMOVE EVERY NTH WORD SECTION*****
  664. 6150 REM
  665. 6200 FW=1: REM FIND FIRST WORD SECOND SENTENCE
  666. 6210 W$=WA$(FW)
  667. 6220 Z$=RIGHT$(W$,1)
  668. 6230 FOR I=1 TO 5
  669. 6240 IF Z$=P$(I) THEN 6300
  670. 6250 NEXT I
  671. 6260 FW=FW+1
  672. 6270 IF FW<N THEN 6210
  673. 6280 PRINT "[147] [195]RITICAL ERROR IN PUNCTUATION."
  674. 6290 FORX=1TO2000:NEXTX:CLR:GOSUB900:GOTO300
  675. 6300 LW=N-2: REM FIND LAST WORD SECOND LAST SENTENCE
  676. 6310 W$=WA$(LW)
  677. 6320 Z$=RIGHT$(W$,1)
  678. 6330 FOR I=1 TO 5
  679. 6340 IF Z$=P$(I) THEN 6390
  680. 6350 NEXT I
  681. 6360 LW=LW-1
  682. 6370 IF LW<1 THEN 6280
  683. 6380 GOTO 6310
  684. 6390 J=0: REM REMOVE EVERY NTH WORD
  685. 6400 II=FW
  686. 6410 II=II+NN
  687. 6420 J=J+1
  688. 6430 IF II>LW THEN 6570
  689. 6440 W$=WA$(II)
  690. 6442 IF W$<>"*DEL" THEN 6450
  691. 6444 II=II+1
  692. 6446 GOTO 6440
  693. 6450 Z$=RIGHT$(W$,1)
  694. 6460 FOR I=1 TO 5: REM REMOVE PUNCTUATION
  695. 6470 IF Z$=P$(I) THEN 6510
  696. 6480 NEXT I
  697. 6490 DU$="----------"
  698. 6500 GOTO 6540
  699. 6510 DU$="----------"+Z$
  700. 6520 LN=LEN(W$)-1
  701. 6530 W$=LEFT$(W$,LN)
  702. 6540 DW$(J)=W$
  703. 6550 WA$(II)=DU$
  704. 6560 GOTO 6410
  705. 6570 DW$(J)="ZZZZ"
  706. 6590 REM *****REVIEW DELETED WORDS SECTION*****
  707. 6600 REM
  708. 6610 N=1
  709. 6620 I=0
  710. 6630 LN=0
  711. 6640 PRINT"[147]"
  712. 6650 LN$=""
  713. 6660 PRINT " [196]ELETED WORDS:"
  714. 6680 W$=DW$(N)
  715. 6690 IF W$="ZZZZ" THEN 6830
  716. 6700 LN=LN+5+LEN(W$)
  717. 6710 IF LN>40 THEN 6750
  718. 6720 N$=STR$(N)
  719. 6730 LN$=LN$+N$+" "+W$+" "
  720. 6740 GOTO 6810
  721. 6750 PRINT LN$
  722. 6760 I=I+1
  723. 6770 IF I>15 THEN 6840
  724. 6780 N$=STR$(N)
  725. 6790 LN$=N$+" "+W$+" "
  726. 6800 LN=LEN(W$)+5
  727. 6810 N=N+1
  728. 6820 GOTO 6680
  729. 6830 PRINT LN$
  730. 6840 PRINT
  731. 6850 PRINT
  732. 6860 PRINT " ****REVIEW DELETED WORDS****"
  733. 6870 GOSUB 3810
  734. 6880 IF W$="ZZZZ" THEN 6900
  735. 6890 GOTO 6620
  736. 6900 PRINT"[147] [195]HANGE ANY OMITTED WORDS? ";
  737. 6910 UL=1:US$="YHN":GOSUB35:R$=UR$:UR$=""
  738. 6920 IF R$="N" THEN 7210
  739. 6925 IF R$<>"Y" THEN PRINT"[145]";TAB(10);"               ":PRINT"[145]";:GOTO6910
  740. 6930 PRINT" [197]NTER THE NUMBER OF THE WORD? ";
  741. 6932 UL=3:US$="0H123456789":GOSUB35:N=VAL(UR$):UR$=""
  742. 6934 IF N<1 THEN PRINT"[145]";TAB(31);"         ":PRINT"[145][145][145]";:GOTO6930
  743. 6936 IF N>J-1 THENPRINT"[145]";TAB(31);"        ":PRINT"[145][145][145]";:GOTO 6930
  744. 6942 PRINT
  745. 6950 W$=DW$(N)
  746. 6960 I=FW+(NN*N)
  747. 6970 Z$=WA$(I)
  748. 6980 IF MID$(Z$,8,1)=" " THEN 7000
  749. 6990 W$=W$+RIGHT$(Z$,1)
  750. 7000 WA$(I)=W$
  751. 7010 IF I+1>LW THEN 7160
  752. 7020 W$=WA$(I+1)
  753. 7030 Z$=RIGHT$(W$,1)
  754. 7040 FOR II=1 TO 5
  755. 7050 IF Z$=P$(II) THEN 7090
  756. 7060 NEXTII
  757. 7070 DU$="----------"
  758. 7080 GOTO 7120
  759. 7090 DU$="----------"+Z$
  760. 7100 LN=LEN(W$)-1
  761. 7110 W$=LEFT$(W$,LN)
  762. 7120 DW$(N)=W$
  763. 7130 WA$(I+1)=DU$
  764. 7140 PRINT " ";WA$(I);"-IS REPLACED BY-";DW$(N)
  765. 7150 GOTO 7175
  766. 7160 PRINT " [206]O REPLACEMENT FOR-";DW$(N)
  767. 7170 DW$(N)="ZZZZ"
  768. 7175 GOSUB 3810
  769. 7180 GOTO 6900
  770. 7190 REM *****PRINT SECTION CLOZE TEST*****
  771. 7200 REM
  772. 7210 IFPR=0THEN7273
  773. 7215 IFPR=1THENPRINT"[147] [211]ET UP PRINTER FOR ANSWER SHEET.
  774. 7220 [141] 3810
  775. 7230 [153] " (null)RINTING ATNNSWER (null)HEET.WAIT
  776. 7250 PRINT#4,"";" [193]NSWER [211]HEET"
  777. 7260 PRINT#4,"";" ";T$
  778. 7270 PRINT#4:GOTO 7280
  779. 7273 PRINT"[147][193]NSWER [211]HEET":PRINT"[163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
  780. 7280 J=1
  781. 7290 IF DW$(J)="ZZZZ" THEN 7330
  782. 7300 IF PR=1 THEN PRINT#4,"";J;" ";DW$(J)
  783. 7305 IF PR=0 THEN PRINT J;" ";DW$(J)
  784. 7310 J=J+1
  785. 7320 GOTO 7290
  786. 7330 IF PR=1 THENPRINT "[147] [211]ET UP PRINTER FOR CLOZE TEST."
  787. 7332 IFPR=1THENPRINT" [200]OW MANY COPIES DO YOU WANT ? ";:UL=2:US$="H0123456789"
  788. 7334 IFPR=1THENGOSUB35:WW=VAL(UR$):MM=1
  789. 7340 IFPR=0THENGOSUB 3810
  790. 7345 IF PR=0 THEN 7396
  791. 7350 IFPR=1THENPRINT"[147]         [208]RINTING [195]LOZE [212]EST.
  792. 7360 [152]4,"";" (null)EST.................................................."
  793. 7365 [152]4
  794. 7370 [152]4
  795. 7375 [152]4
  796. 7380 [152]4,"";" (null)AME............................     STR$ATE............."
  797. 7385 [152]4
  798. 7390 [152]4
  799. 7395 [152]4:[137]7400
  800. 7396 [153]"LOAD":[153]"TEST..........................."
  801. 7397 [153]:[153]
  802. 7398 [153]" NAME................   DATE........."
  803. 7399 [153]:[153]:[153]
  804. 7400 N[178]1
  805. 7410 LN[178]0
  806. 7420 LN$[178]""
  807. 7430 W$[178]WA$(N)
  808. 7440 [139] W$[178]"/*" [167] 7550
  809. 7450 [139] W$[178]"*DEL" [167] 7530
  810. 7460 LN[178]LN[170]1[170][195](W$)
  811. 7470 [139]LN[177]70[175]PR[178]1[167] 7500
  812. 7475 [139]LN[177]30[175]PR[178]0[167] 7500
  813. 7480 Z5[178][198]([200](W$,1))
  814. 7481 [139]Z5[179][177]45[167]LN$[178]LN$[170]" "[170]ZA$(N):[137]7530
  815. 7482 LN$[178]LN$[170]" "[170]W$:[137]7530
  816. 7490 [137] 7530
  817. 7500 [139]PR[178]1[167][152]4,"";LN$
  818. 7502 [139]PR[178]0[167][153]LN$
  819. 7505 [139]PR[178]1[167][152]4
  820. 7508 [139]PR[178]0[167][153]
  821. 7510 Z5[178][198]([200](W$,1)):[139]Z5[179][177]45[167]LN$[178]ZA$(N):[137]7520
  822. 7515 LN$[178]W$
  823. 7520 LN[178][195](W$)[170]1
  824. 7530 N[178]N[170]1
  825. 7540 [137]7430
  826. 7550 [139]PR[178]1[167][152]4,"";LN$
  827. 7555 [139]PR[178]0[167][153] LN$
  828. 7556 [139]PR[178]0[167] 7560
  829. 7557 [139]MM[179]WW[167]MM[178]MM[170]1:[129]X[178]1[164]10:[152]4:[130]X:[137]7360
  830. 7560 [139]PR[178]1[167][160]4:[137]7570
  831. 7565 [141]835:[141]15835
  832. 7570 [153]"LOAD":[153]"STR$O YOU WANT TO GO BACK":[153]
  833. 7580 [153]"TO THE SAME TEXT ? ";:UL[178]1:US$[178]"YN":[141]35
  834. 7590 [139] UR$[178]"N"[167][156]:[141]900:[137]300
  835. 7600 [137]1940
  836. 8070 :
  837. 9000 [143] << ENABLE SENTENCE INPUT >>
  838. 9005 [153]"LOAD      (null)ROCESSING (null)ENTENCE
  839. 9010 W$=W$+" "
  840. 9020 FOR XZ=1TOLEN(W$):CR$=""
  841. 9030 IF MID$(W$,XZ,1)<>" "THENNEXTXZ
  842. 9040 WA$(N)=LEFT$(W$,XZ-1):ZA$(N)=WA$(N):FORXL=1TOLEN(WA$(N))
  843. 9041 TA$=MID$(WA$(N),XL,1):IF"-"=TA$THENCR$=CR$+"-":GOTO9047
  844. 9042 IF"'"=TA$THENCR$=CR$+"'":GOTO9047
  845. 9043 IF"+"=TA$THENCR$=CR$+"+":GOTO9047
  846. 9044 IF"("=TA$THENCR$=CR$+"(":GOTO9047
  847. 9045 IF0<VAL(TA$)ORTA$="0"THENCR$=CR$+TA$:GOTO9047
  848. 9046 CR$=CR$+CHR$(ASC(MID$(WA$(N),XL,1))OR128)
  849. 9047 NEXTXL:GX$=RIGHT$(CR$,1)
  850. 9048 IFGX$>"Z"ANDGX$<"[193]"THENCR$=LEFT$(CR$,LEN(CR$)-1)+RIGHT$(ZA$(N),1)
  851. 9049 WA$(N)=CR$
  852. 9050 IFWA$(N)<>""THENN=N+1
  853. 9051 W$=MID$(W$,XZ+1)
  854. 9070 IFW$THEN9020
  855. 9080 IFZA$(N-1)="/*"THENXZ=LEN(W$):WA$(N-1)=ZA$(N-1):GOTO1920
  856. 9090 RETURN
  857. 10000 IF N=2THEN TN=1:GOTO10010
  858. 10003 IF N=0THEN TN=0:GOTO10010
  859. 10005 TN=N-1
  860. 10010 PRINT"";TN:RETURN
  861. 15835 PRINTLEFT$(UD$,24);"                                  ";:RETURN
  862.